home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_92_mouse script - 1bit pattern GUI.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1.5 KB  |  69 lines
  1. property pMySprite, pMyMember, pMyMember2, pMyMember3
  2.  
  3. on beginSprite me
  4.   pMySprite = sprite(me.spriteNum)
  5.   pMyMember = pMySprite.memberNum
  6.   pMyMember2 = pMyMember - 1
  7.   pMyMember3 = pMyMember + 1
  8. end
  9.  
  10. on mouseEnter me
  11.   if sprite(1).pUndoTrigger = 0 then
  12.     pass()
  13.   else
  14.     set the memberNum of sprite pMySprite to pMyMember3
  15.     case the currentSpriteNum of
  16.       "31":
  17.         put "Save a new pattern to disk. (Ctrl+S)" into field "status"
  18.       "36":
  19.         put "Export the current pattern to a 1-bit bitmap. (Ctrl+E)" into field "status"
  20.       "33":
  21.         put "Save changes to the current pattern. (Ctrl+S)" into field "status"
  22.       "37":
  23.         put "Save and apply the current pattern to your desktop. (Ctrl+T)" into field "status"
  24.     end case
  25.   end if
  26. end
  27.  
  28. on mouseLeave me
  29.   if sprite(1).pUndoTrigger = 0 then
  30.     pass()
  31.   else
  32.     set the memberNum of sprite pMySprite to pMyMember
  33.     put EMPTY into field "status"
  34.   end if
  35. end
  36.  
  37. on mouseDown me
  38.   if sprite(1).pUndoTrigger = 0 then
  39.     pass()
  40.   else
  41.     repeat while the mouseDown
  42.       set the memberNum of sprite pMySprite to pMyMember2
  43.       updateStage()
  44.     end repeat
  45.   end if
  46. end
  47.  
  48. on mouseUp me
  49.   if sprite(1).pUndoTrigger = 0 then
  50.     pass()
  51.   else
  52.     set the memberNum of sprite pMySprite to pMyMember3
  53.     case the currentSpriteNum of
  54.       "31":
  55.         namePatternDialog()
  56.       "36":
  57.         export1bitPattern()
  58.       "33":
  59.         save1bitPattern()
  60.       "37":
  61.         save1bitPattern()
  62.     end case
  63.   end if
  64. end
  65.  
  66. on keyboardSave me
  67.   save1bitPattern()
  68. end
  69.